home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / polardrw / data.z / Form1.frm < prev    next >
Text File  |  1999-05-17  |  3KB  |  86 lines
  1. VERSION 5.00
  2. Object = "{78BA52DF-D227-11D2-B9D2-008048FD54E6}#1.0#0"; "POLARD~1.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   8670
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   9360
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   8670
  14.    ScaleWidth      =   9360
  15.    StartUpPosition =   3  'Windows Default
  16.    Begin POLARDRAWLib.POLARDraw POLARDraw1 
  17.       Height          =   8535
  18.       Left            =   60
  19.       TabIndex        =   0
  20.       Top             =   90
  21.       Width           =   7845
  22.       _Version        =   65536
  23.       _ExtentX        =   13838
  24.       _ExtentY        =   15055
  25.       _StockProps     =   160
  26.       Appearance      =   1
  27.       DrawPaper       =   0   'False
  28.       PageOriginY     =   19955
  29.       HorizontalGrid  =   567
  30.       VerticalGrid    =   567
  31.       AllowRotate     =   0   'False
  32.       AllowResize     =   0   'False
  33.       AllowEditPoints =   0   'False
  34.    End
  35.    Begin VB.CommandButton btnTree 
  36.       Caption         =   "Tree"
  37.       Height          =   465
  38.       Left            =   8085
  39.       TabIndex        =   2
  40.       Top             =   645
  41.       Width           =   1200
  42.    End
  43.    Begin VB.CommandButton btnLight 
  44.       Caption         =   "Traffic Light"
  45.       Height          =   465
  46.       Left            =   8085
  47.       TabIndex        =   1
  48.       Top             =   105
  49.       Width           =   1200
  50.    End
  51. End
  52. Attribute VB_Name = "Form1"
  53. Attribute VB_GlobalNameSpace = False
  54. Attribute VB_Creatable = False
  55. Attribute VB_PredeclaredId = True
  56. Attribute VB_Exposed = False
  57. Private Sub btnLight_Click()
  58.     AddObject "semaphore.emf"
  59. End Sub
  60.  
  61. Private Sub btnTree_Click()
  62.     AddObject "tree.emf"
  63. End Sub
  64.  
  65. Private Sub Form_Load()
  66.     POLARDraw1.EnableRendering = False
  67.     lID = POLARDraw1.AddShape(1, 0, 0, POLARDraw1.PageWidth, POLARDraw1.PageHeight)
  68.     POLARDraw1.AddShapeToSelection lID
  69.     POLARDraw1.SetSelFillPicture "street.emf"
  70.     POLARDraw1.ClearSelection
  71.     POLARDraw1.DrawPaper = False
  72.     POLARDraw1.EnableRendering = True
  73.     POLARDraw1.FitToPage
  74. End Sub
  75.  
  76. Private Sub AddObject(FileName As String)
  77.     POLARDraw1.EnableRendering = False
  78.     lID = POLARDraw1.AddShape(1, 0, 0, 30, 45)
  79.     POLARDraw1.SetShapeHasLine lID, False
  80.     POLARDraw1.ClearSelection
  81.     POLARDraw1.AddShapeToSelection lID
  82.     POLARDraw1.EnableRendering = True
  83.     POLARDraw1.SetSelFillPicture FileName
  84. End Sub
  85.  
  86.